﻿
Imports System.Web.UI
Imports sonicERPinfo
Imports sonicERPDAL.sonicERPDAL

Public Class LoginBase
    Inherits System.Web.UI.Page


    Private _sessaousuario As New Tabelainfo
    Private _dal As New sonicERPDAL.sonicERPDAL.EntidadeDal



    Public Property sessaousuario() As Tabelainfo
        Get

            HttpContext.Current.Session("sessaousuario") = CType(_sessaousuario, Tabelainfo)

            Return HttpContext.Current.Session("sessaousuario")
        End Get
        Set(ByVal value As Tabelainfo)

            _sessaousuario = value
        End Set
    End Property



    Public Property dal() As sonicERPDAL.sonicERPDAL.EntidadeDal
        Get
            Return _dal
        End Get
        Set(ByVal value As sonicERPDAL.sonicERPDAL.EntidadeDal)
            _dal = value
        End Set
    End Property

    Public Sub New()
        _dal = New sonicERPDAL.sonicERPDAL.EntidadeDal
        _sessaousuario = New Tabelainfo


    End Sub



End Class

